[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd image
iflag integer n integer z (n) real w (n) real [iflag,w] = image(iflag,n,z) function [iflag,w] = image(iflag,n,z)